home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 65 / Digital_Talk_65_2004-03-12_Digital_Talk_de_Side_B.d64 / hypra noodle _sb (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  5KB  |  246 lines
  1. 1 print"[147]":poke53280,1:poke53281,1
  2. 2 print"";
  3. 3 print"the summer of 64 very proudly presents:"
  4. 10 v=53248
  5. 11 pokev+21,4
  6. 12 poke2042,13
  7. 20 forn=0to59:readq:poke832+n,q:next
  8. 25 pokev+23,4:pokev+29,4:remexpand
  9. 55 for x=0to70
  10. 60 pokev+4,x
  11. 65 pokev+5,x
  12. 70 nextx
  13. 80 for a=70to150
  14. 90 pokev+4,a
  15. 95 pokev+5,70
  16. 100 nexta
  17. 102 forb=150 to255
  18. 104 pokev+4,b
  19. 106 nextb
  20. 108 forc=70to40step-1
  21. 110 pokev+5,c
  22. 112 nextc
  23. 114 ford=255to130step-1
  24. 116 pokev+4,d
  25. 118 pokev+5,40
  26. 120 nextd
  27. 122 fore=40to55
  28. 124 pokev+5,e
  29. 126 next e
  30. 128 forf=130to70step-1
  31. 130 pokev+4,f
  32. 132 nextf
  33. 134 forg=55to45step-1
  34. 136 pokev+5,g
  35. 138 nextg
  36. 140 for l=70to13step-1
  37. 150 pokev+4,l
  38. 160 nextl
  39. 162 form=45to55
  40. 164 pokev+5,m
  41. 165 forn=1to50:nextn
  42. 166 nextm
  43. 168 forp=55to100
  44. 170 pokev+5,p
  45. 172 forq=1to10:nextq
  46. 174 nextp
  47. 190 print"[145][145][145]"
  48. 192 fork=1to40
  49. 195 forj=1to50:nextj:goto300
  50. 197 print" ";
  51. 199 nextk:goto700
  52. 200 data 0,0,0,0,0,0,0,0,0,0,0,0
  53. 210 data 79,255,242,72,0,18,73,129,146
  54. 220 data 121,129,158,72,34,18,72,62,18
  55. 230 data 72,0,18,79,255,240,0,60,0
  56. 240 data 1,255,128,0,60,0,0,60,0
  57. 250 data 3,255,224,2,0,32,2,0,32,2,0,32
  58. 300 rem toene
  59. 310 si=54272:fl=si:fh=si+1:w=si+4:a=si+5:h=si+6:l=si+24
  60. 320 pokel,15
  61. 330 pokea,16+15
  62. 340 pokeh,9*16+14
  63. 350 pokefh,155:pokefl,179
  64. 360 pokew,17
  65. 363 fort=1to80 :nextt
  66. 365 pokew,0:pokea,0:pokeh,0
  67. 370 goto 197
  68. 700 print"[147]":printchr$(147)
  69. 701 pokev+21,0
  70. 705 poke53281,13:poke53280,13
  71. 710 print""
  72. 740 print"[209]  [209] [209]  [209] [209][209][209][209] [209][209][209][209] [209][209][209][209]
  73. 742 [153]"(NULL)  (NULL) (NULL)  (NULL) (NULL)  (NULL) (NULL)  (NULL) (NULL)  (NULL)
  74. 744 print"[209][209][209][209] [209][209][209][209] [209][209][209][209] [209][209][209][209] [209][209][209][209]
  75. 745 [153]"(NULL)  (NULL)   (NULL)  (NULL)    (NULL)(NULL)   (NULL)  (NULL)
  76. 746 print"[209]  [209]  [209]   [209]    [209] [209][209] [209]  [209]
  77. 748 [153]"
  78. 749 print"
  79. 750 [153]"(NULL)   (NULL) (NULL)(NULL)(NULL)(NULL) (NULL)(NULL)(NULL)(NULL) (NULL)(NULL)(NULL)  (NULL)   (NULL)(NULL)(NULL)(NULL)
  80. 752 print"[209][209]  [209] [209]  [209] [209]  [209] [209]  [209] [209]   [209]
  81. 754 [153]"(NULL) (NULL) (NULL) (NULL)  (NULL) (NULL)  (NULL) (NULL)  (NULL) (NULL)   (NULL)(NULL)
  82. 756 print"[209]  [209][209] [209]  [209] [209]  [209] [209]  [209] [209]   [209]
  83. 758 [153]"(NULL)   (NULL) (NULL)(NULL)(NULL)(NULL) (NULL)(NULL)(NULL)(NULL) (NULL)(NULL)(NULL)  (NULL)(NULL)(NULL) (NULL)(NULL)(NULL)(NULL)
  84. 760 print"programmed by sputnik booster"
  85. 761 print""
  86. 762 print"beschwerden zu diesem spiel bitte an:  "
  87. 764 print"      erdumlaufbahngiraffe*gmx.de"
  88. 1000 rem sexualorgan
  89. 1010 si=54272:fl=si:fh=si+1:w=si+4:a=si+5:h=si+6:l=si+24
  90. 1020 pokel,15
  91. 1030 pokea,16+15
  92. 1040 pokeh,9*16+14
  93. 1065 pokefh,42 :pokefl,10
  94. 1067 pokew,17
  95. 1070 fort=1to300:nextt
  96. 1080 pokefh,37 :pokefl,9
  97. 1085 pokew,17
  98. 1090 fort=1to300:next
  99. 1100 pokefh,31 :pokefl,7
  100. 1105 pokew,17
  101. 1110 fort=1to300:nextt
  102. 1120 pokefh,35:pokefl,8
  103. 1130 pokew,17
  104. 1140 fort=1to150:nextt
  105. 1150 pokefh,37:pokefl,9
  106. 1160 pokew,17
  107. 1170 fort=1to600:nextt
  108. 1180 pokefh,31:pokefl,31
  109. 1190 pokew,17
  110. 1200 fort=1to300
  111. 1210 pokefh,29:pokefl,29
  112. 1220 pokew,17
  113. 1230 fort=1to300:nextt
  114. 1240 pokefh,28:pokefl,28
  115. 1250 pokew,17
  116. 1260 fort=1to150:nextt
  117. 1270 pokefh,25:pokefl,25
  118. 1280 pokew,17
  119. 1290 fort=1to300
  120. 1300 pokefh,21:pokefl,21
  121. 1310 pokew,17
  122. 1320 fort=1to600:nextt
  123. 1325 c%=1
  124. 1327 d%=249
  125. 1330 fordt=1to249
  126. 1335 c%=c%+1
  127. 1337 d%=d%-1
  128. 1340 pokefh,c%:pokefl,d%
  129. 1350 pokew,17
  130. 1360 fort=1to5 :nextt
  131. 1370 nextdt
  132. 1400 pokew,0:pokea,0:pokeh,0
  133. 7100 q%=2
  134. 7200 v%=28
  135. 7400 rem dhf
  136. 7500 print"[147]":poke53281,0:poke53280,0
  137. 7506 print"score:";x%
  138. 7510 v=53248
  139. 7520 pokev+21,4
  140. 7521 poke2043,13
  141. 7522 x=150
  142. 7524 y=100
  143. 7525 pokev+4,x
  144. 7526 pokev+5,y
  145. 7527 print" run for your life!!!!!!";
  146. 7528 fora=1to800:nexta
  147. 7529 print"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]                         "
  148. 7531 pokev+21,v%
  149. 7533 poke2044,13
  150. 7534 poke2041,13
  151. 7555 pokev+4,x
  152. 7557 pokev+5,y
  153. 7559 pokev+23,12:pokev+29,12
  154. 7560 pokev+4,x
  155. 7561 pokev+5,100
  156. 7564 pokev+23,30:pokev+29,30
  157. 7575 f=int(189*rnd(1)):x%=x%+1
  158. 7576 c=20
  159. 7577 goto7600
  160. 7578 i=50+int(129*rnd(1)):x%=x%+1
  161. 7579 g=20
  162. 7580 rk=int(189*rnd(1)):x%=x%+1
  163. 7582 rm=189
  164. 7599 rem joyst.abfragebegin************
  165. 7600 j=peek(56320):goto9500
  166. 7601 goto9700
  167. 7603 ifx>=f-38andx<=f+38thengoto7608
  168. 7604 ify>=c-30andy<=c+30thengoto7606
  169. 7605 goto7609
  170. 7606 ifx>=f-38andx<=f+38thengoto10000
  171. 7607 goto7609
  172. 7608 ify>=c-30andy<=c+30thengoto10000
  173. 7609 print"tries";h%
  174. 7610 print"score:";x%:ifx%=5 thengoto11000
  175. 7611 if(jand6)=0thens=-12:t=12:goto9000
  176. 7612 if(jand10)=0thens=12:t= 12:goto9000
  177. 7613 if(jand5)=0thens=-12:t=-12:goto9000
  178. 7614 if(jand9)=0thens= 12:t=-12:goto9000
  179. 7619 if(jand8)=0thens=16:t=0:goto9000
  180. 7620 if(jand1)=0thens=0:t=-16:goto9000
  181. 7630 if(jand2)=0thens=0:t=16:goto9000
  182. 7640 if(jand4)=0thens=-16:t=0::goto9000
  183. 7645 goto 9040
  184. 8099 rem******joyst.abfrage ende*******
  185. 9000 x=x+s
  186. 9010 y=y+t
  187. 9020 pokev+4,x
  188. 9030 pokev+5,y
  189. 9035 s=0:t=0
  190. 9040 pokev+6,f
  191. 9050 c=c+8
  192. 9060 pokev+7,c:ifc>247thengoto7575
  193. 9061 g=g+8
  194. 9062 pokev+8,g
  195. 9065 pokev+9,i
  196. 9066 ifq%=5thengoto9068:goto9087
  197. 9067 goto9087
  198. 9068 rm=rm-12
  199. 9069 pokev+2,rk
  200. 9070 pokev+3,rm
  201. 9080 ifrm<50thengoto7580
  202. 9081 ifrm>240thengoto7580
  203. 9087 ifg>247thengoto7578
  204. 9088 ifx<50thenx=x+16:goto7600
  205. 9089 ifx>230thenx=x-16:goto7600
  206. 9090 ify<50theny=y+16:goto7600
  207. 9100 ify>190theny=y-16:goto7600
  208. 9200 goto7600
  209. 9500 ifx>=g-38andx<=g+38thengoto9550
  210. 9510 ify>=i-30andy<=i+30thengoto9600
  211. 9520 goto7601
  212. 9550 ify>=i-30andy<=i+30thengoto10000
  213. 9560 goto7601
  214. 9600 ifx>=g-38andx<=g+38thengoto10000
  215. 9610 goto7601
  216. 9700 ifx>=rk-38andx<=rk+38thengoto9750
  217. 9710 ify>=rm-30andy<=rm+30thengoto9730
  218. 9720 goto7603
  219. 9730 ifx>=rk-38andx<=rk+38thengoto10000
  220. 9740 goto7603
  221. 9750 ify>=rm-30andy<=rm+30thengoto10000
  222. 9760 goto7603
  223. 10000 rem
  224. 10001 pokev+21,0
  225. 10005 poke53281,7:poke53280,7
  226. 10010 print"lost a life sweetie!!!!!!!"
  227. 10020 fora=1to1000
  228. 10021 rem next
  229. 10022 nexta
  230. 10024 h%=h%+1:ifh%=5thenh%=0:goto10040
  231. 10030 rm=20:g=20: goto7400
  232. 10040 print"[147]":poke53281,13:poke53280,13
  233. 10050 print"game over!!!!!!!"
  234. 10060 forb=1to2000
  235. 10070 rem next
  236. 10080 nextb
  237. 10090 print"[147]":poke53281,6:poke53280,6
  238. 10095 print"written in march 2000 by sputnik booster";
  239. 10096 print" in cooperation with the summer of 64"
  240. 10097 print"get sputnik booster 8 bit 8 track demo-cd at ";
  241. 10098 print"erdumlaufbahngiraffe*gmx.de version 01/2004"
  242. 10100 end
  243. 11000 rem****
  244. 11040 q%=5:v%=30
  245. 11100 goto7531
  246.